From: Glenn Morris Date: Wed, 2 Sep 2009 03:22:00 +0000 (+0000) Subject: (time-add): Suppress warnings from compat function. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10704 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8f83128cce755a649db3dfbe297e169f1835507e;p=emacs.git (time-add): Suppress warnings from compat function. --- diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el index 56254ccd539..6d8b32965b9 100644 --- a/lisp/net/newst-backend.el +++ b/lisp/net/newst-backend.el @@ -442,10 +442,15 @@ buffers *newsticker-wget-* will not be closed." ;; ====================================================================== ;;; Compatibility section, XEmacs, Emacs ;; ====================================================================== + +;; FIXME It is bad practice to define compat functions with such generic names. + +;; This is not needed in Emacs >= 22.1. (unless (fboundp 'time-add) (require 'time-date);;FIXME (defun time-add (t1 t2) - (seconds-to-time (+ (time-to-seconds t1) (time-to-seconds t2))))) + (with-no-warnings ; don't warn about obsolete time-to-seconds in 23.2 + (seconds-to-time (+ (time-to-seconds t1) (time-to-seconds t2)))))) (unless (fboundp 'match-string-no-properties) (defalias 'match-string-no-properties 'match-string))